home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / docs / hyper / fgp_1996.lha / FGP_1996 / FGPGuide.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-09-08  |  2.0 KB  |  69 lines

  1. /*
  2.  F1GP-Guide 14/16 Arexx Front End
  3.  ©1996 von Age Ass (Heiko Schröder) - - - - Multiview/Amigaguide Version
  4.  ©1994-1995 Jim Hines All rights Reserved - - - - AmigaGuide Version
  5.  */
  6.  
  7. NL = '0a'x
  8.  
  9.  
  10. if ~show('L','rexxsupport.library') then
  11.     call addlib('rexxsupport.library',0,-30)
  12. if ~show('L','rexxarplib.library') then
  13.     call addlib('rexxarplib.library',0,-30)
  14. if ~show('L','rexxreqtools.library') then
  15.      call addlib('rexxreqtools.library',0,-30)
  16.  
  17. if ~exists('fgpguide.prefs') then do
  18.     call Request(100, 100,"fgpguide.prefs DOES NOT EXIST\You MUST create it by using the\TG-Screen program." ,, "Live Long and Prosper",,)
  19.     exit
  20. end
  21.  
  22. screenmode = open(sm, 'fgpguide.prefs', 'r')
  23. smvar = readln(sm)
  24. close(sm)
  25. parse var smvar width '|' height
  26.  
  27.  
  28. call openport(notifyport)
  29. call openscreen(0, 4, hireslace, 'Formel 1 Grand Prix 1996 v14/16 ©1996 Heiko Schröder', fgpguide,, width, height, 0)
  30.  
  31. /* WORKBENCH COLORS */
  32.     Screencolor(fgpguide, 0, 8, 8, 7)
  33.     Screencolor(fgpguide, 1, 0, 0, 0)
  34.     Screencolor(fgpguide, 2, 0, 15, 15)
  35.     Screencolor(fgpguide, 3, 14, 14, 3)
  36.     Screencolor(fgpguide, 4, 7, 7, 15)
  37.     Screencolor(fgpguide, 5, 15, 15, 15)
  38.     Screencolor(fgpguide, 6, 11, 10, 9)
  39.     Screencolor(fgpguide, 7, 15, 11, 10)
  40.  
  41. /*  PIC COLORS */
  42.     Screencolor(fgpguide, 8, 0, 0, 0)
  43.     Screencolor(fgpguide, 9, 1, 1, 1)
  44.     Screencolor(fgpguide, 10, 3, 3, 3)
  45.     Screencolor(fgpguide, 11, 5, 5, 5)
  46.     Screencolor(fgpguide, 12, 7, 7, 7)
  47.     Screencolor(fgpguide, 13, 9, 9, 9)
  48.     Screencolor(fgpguide, 14, 10, 10, 10)
  49.     Screencolor(fgpguide, 15, 12, 12, 12)
  50.  
  51. address ARexx "'call CreateHost(hostport, notifyport, fgpguide)'"
  52.  
  53. WaitForPort hostport
  54. WaitForPort hostport
  55. WaitForPort hostport
  56.  
  57. /* ========THESE DIRS & FILES PERTAIN TO THE MARK AND VIEW COMMANDS === 
  58.  
  59. if exists('fgp_1996.Guide') then do
  60.     call PostMsg(0, 0,'Loading previously saved episode list.', fgp_1996.GUIDE)
  61.     end*/
  62.  
  63. address command 'Multiview fgp_1996.GUIDE pubscreen fgpGUIDE'
  64.  
  65. fgpexit:
  66. closescreen(fgpguide)
  67. address command 'avail flush >nil:' /* flushes the no longer needed libs from memory */
  68. exit
  69.